﻿Public Class TMyProcPrivileges
    Friend _RoutineName As String
    Friend _RoutineType As String
    Friend _Grantor As String
    Friend _ProcPriv As String
    Friend _Timestamp As DateTime
    Friend _RoutineComment As String
    Friend _Created As DateTime
    Friend _LastAltered As DateTime
    Friend _Db As String
    Public ReadOnly Property RoutineComment() As String
        Get
            Return _RoutineComment
        End Get
    End Property
    Public ReadOnly Property Created() As DateTime
        Get
            Return _Created
        End Get
    End Property
    Public ReadOnly Property LastAltered() As DateTime
        Get
            Return _LastAltered
        End Get
    End Property
    Public ReadOnly Property Db() As String
        Get
            Return _Db
        End Get
    End Property
    Public ReadOnly Property ExecutePriv() As Boolean
        Get
            Return _ProcPriv.Contains("Execute")
        End Get
    End Property
    Public ReadOnly Property AlterRoutinePriv() As Boolean
        Get
            Return _ProcPriv.Contains("Alter Routine")
        End Get
    End Property
    Public ReadOnly Property GrnatPriv() As Boolean
        Get
            Return _ProcPriv.Contains("Grant")
        End Get
    End Property
    Public ReadOnly Property RoutineName() As String
        Get
            Return _RoutineName
        End Get
    End Property

    Public ReadOnly Property RoutineType() As String
        Get
            Return _RoutineType
        End Get
    End Property

    Public ReadOnly Property Grantor() As String
        Get
            Return _Grantor
        End Get
    End Property

    Public ReadOnly Property ProcPriv() As String
        Get
            Return _ProcPriv
        End Get
    End Property

    Public ReadOnly Property Timestamp() As DateTime
        Get
            Return _Timestamp
        End Get
    End Property


End Class
